cyber.net interactivo 1997 April/inter@ivo 1997-04.iso/demos/referenc/orsay/dataor/guide.dxr/00019.ls

Text File | 1996-06-17 | 226 b | 17 lines

on wait wichtime
  set timedeb to the timer
  repeat while (the timer - timedeb) < (wichtime * 60)
    if the mouseDown then
      quit()
    end if
  end repeat
end

on mouseDown
  quit()
end

on startMovie
  cursor(200)
end